00100	3	K=X
00200		A=RPOS(1,K)
00300		B=RPOS(1,K+1)
00400		R2=A+(B-A)*(X-K)
00500		IF(IX22.NE.0)RETURN
00600	C GO BACK IF SETTING POSITION WITH 'CP'
00700		VZ=RN(ISET+9)
00800		IF(VZ.GE.6.0)GO TO 55
00900	C NEXT FOR VERY SHORT SYLLABLES -- SHIFTS THEM TO LEFT
01000		K=RN(ISET+2)
01100	CC	A=1.5615+1.-((VZ-2.16)*1.5625)/6.0
01200	CC	R2=R2+(1.+(6.0-VZ)/3.84)*RSTJ2
01300	CCC	A=2.5625-(VZ-2.16)*.2604
01400		A=2.5625-(VZ-2.16)*.2
01500		R2=R2+(A-VZ/3.84)*RSTFAC(K)
01600	55	RN(ISET+3)=R2
01700		IF(KK.GT.0)GO TO 5
01800	C  NEXT FOR PAIRS OF NUMS.
01900	
02000	
02100	MARKZ.F4 :::::::
02200	
06100	30	IF(JREP)CALL MARKS(RA)
06200		RB=0
06300		J=J+1
06400	CXXX	IF(RA.GE.30.AND.RA.LE.35)VX(J+1)=0
06500	C THIS  ↑↑↑↑ CATCHES FINGERING NUM.(0-5)  IT WAS READ IN MARKS.
06600	
06700	
06800	
21300		1 /A2Z/IAZ(5),LEF
21400		DO 1500 K=1,72
21500		J=INP(K)
21600		IF(J.NE.LEF)GO TO 1
21700	CHECK TO SEE IF A NUMBER FOLLOWS 'F' (FINGERING)(F0=FU  F5=FZ)
21800		L=INP(K+1)
21900		IF(ISNUM(L).LT.0)GO TO 1
22000		INP(K+1)=IAZ(NALF(L)+21)
22100	1	IF(J.EQ.ISTAR)GO TO 15  
22200	1500	IF(J.EQ.ISEMI)GO TO 500
22300	
22400	
33100	22	IF(ML.GE.LEU.AND.ML.LE.LEZ)RA=30+(ML-LEU)/536870912
33200	C  TYPE /2 F0/6 F5/ FOR FINGERING NUMS. 0-5   FU=F0, FZ=F5
33300		GO TO 18
33400	88	RA=45